﻿Imports System.Data
Public Class frm_RouteDetail
    Dim dt_RouteDetail As DataTable
    Private Sub frm_RouteDetail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dt_RouteDetail = New DataTable
        dt_RouteDetail.Columns.Add("CardCode")
        dt_RouteDetail.Columns.Add("CardName")
        dt_RouteDetail.Columns.Add("status")

        dt_RouteDetail.Rows.Add("C20000", "Vincom Center", "Visited")
        dt_RouteDetail.Rows.Add("DP0001", "Diamond Plaza", "")
        dt_RouteDetail.Rows.Add("LT0003", "Lotte", "Visited")
        dt_RouteDetail.Rows.Add("WM0013", "Wallmart", "")

        dg_RouteDetail.DataSource = dt_RouteDetail
    End Sub

    Private Sub mi_MakeSalesOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mi_MakeSalesOrder.Click
        Dim frm_so As New frm_SalesOrder
        frm_so.Show()
        frm_so.setOutlet(dg_RouteDetail.Item(dg_RouteDetail.CurrentRowIndex, 0), dg_RouteDetail.Item(dg_RouteDetail.CurrentRowIndex, 1))
    End Sub
End Class